DATA -1,2,3
DATA 4,-5,6
DATA 7,8,-9
CLS
RESTORE
FOR iy = 1 TO 3: FOR ix = 1 TO 3
READ a: PRINT a;
NEXT: PRINT : NEXT: PRINT
RESTORE
FOR iy = 1 TO 3: FOR ix = 1 TO 3
READ a
IF iy > 1 AND a > 0 THEN a = a + a
PRINT a;
NEXT: PRINT : NEXT
Тестирование выполнено в программе QB64 ( Скачать )